Function AddCompression(FName:PathStr;Method:Byte):Word;

    This blockwrites a PPD  ID  header  to  the  end  of  the file FName.
    InEXE and Names flags are set to  False  and  the compression flag is
    set  to  Method.   Method   should   be   in  the  legal  compression
    range and should not be 0.

    This function is used once you  have  compressed  a database and wish
    to mark it as such.

    Example

    If AddCompression('MYDATA.ARJ',C_ARJ)<>0 Then WriteLn('Error.');